Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) 
     Handles ToolBar1.ButtonClick
        Select Case e.Button.ItemData
            Case "New"
                Call mnuFileNew_Click()
            Case "Open"
                Call mnuFileOpen_Click()
            Case "Save"
                Call mnuFileSave_Click()
        End Select
    End Sub
